home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / b.bug scout (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  690b  |  21 lines
  1. 5 ifa=1thensys40200:end
  2. 10 poke53281,0:poke53280,0:print"[147]"
  3. 20 print"           [129][194] [213] [199]   [211] [195] [207] [213] [212]"
  4. 30 print"             [150]by [210]ick [206]ash"
  5. 40 print"[154]    [212]his program, called "chr$(34)"bug boot"chr$(34)","
  6. 50 print"will install [194][211].40200.  [211]ince it's a"
  7. 60 print"utility to be used when you're"
  8. 70 print"programming, it doesn't return to"
  9. 80 print"[204][207][193][196][211][212][193][210].
  10. 90 [153]"         open(right$open)nstall peek(NULL)chr$ (NULL)len(NULL)(NULL)(NULL)"
  11. 100 [153]"         ((NULL)open)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  12. 110 [161]a$:[139]a$[179][177]"i"[175]a$[179][177]"r"[167]110
  13. 120 [139]a$[178]"r"[167]200
  14. 130 a[178]1:[147]"bs.40200",8,1
  15. 200 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  16. 210 [139]er[179][177]63[167][153]"load":[128]
  17. 220 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  18. 230 [153]"run"
  19. 340 [151]631,13:[151]632,13:[151]198,2:[128]
  20. 10000 [159]15,8,15,"s0:bug boot":[160]15:[148]"bug boot",8:[128]
  21.